      INPP
      AMEM 1
      DSVS PROG
fato1 NADA
      ENPR 1
      AMEM 1
      DSVS fato2
fato2 NADA
      CRVL 1,-3
      CRCT 1
      CMEG
      DSVF L1
      CRCT 1
      ARMZ 1,-4
      DSVS F1
L1    NADA
      CRVL 1,-3
      AMEM 1
      CRVL 1,-3
      CHPR fato1
      MULT
      ARMZ 1,-4
F1    NADA
      DMEM 1
      RTPR 1,1
PROG  NADA
      LEIT
      ARMZ 0,0
      AMEM 1
      CRVL 0,0
      CHPR fato1
      IMPR
      DMEM 1
      PARA
